// $Header: $
// Copyright (c) CODE Consulting and Development, s.r.o., Plzen. All rights reserved.
// ReSharper disable ArrangeModifiersOrder
// ReSharper disable InconsistentNaming
using OpcLabs.EasyOpc.DataAccess;
using System;
using System.Web.UI.WebControls;
using OpcLabs.EasyOpc.DataAccess.Extensions;
using OpcLabs.EasyOpc.OperationModel;
namespace AutoRefreshWeb
{
public partial class _Default : System.Web.UI.Page
{
static _Default()
{
// Enable auto-subscribing optimization (not necessary), which can improve performance with repeated Read
// requests.
Client.TryEnableAutoSubscribingOptimization();
}
// Use a shared client instance to allow for better optimization.
static private readonly EasyDAClient Client = new EasyDAClient();
protected void Page_Load(object sender, EventArgs e)
{
Read(TextBox1, "Simulation.Ramp (10 s)");
Read(TextBox2, "Simulation.Random");
Read(TextBox3, "Simulation.Incrementing (1 s)");
}
protected void Read(TextBox textBox, string itemId)
{
try
{
object value = Client.ReadItemValue("", "OPCLabs.KitServer.2", itemId);
textBox.Text = value?.ToString() ?? "";
}
catch (OpcException e)
{
textBox.Text = $"*** {e.GetBaseException().Message}";
}
}
}
}
' $Header: $
' Copyright (c) CODE Consulting and Development, s.r.o., Plzen. All rights reserved.
Imports OpcLabs.EasyOpc.DataAccess
Imports System.Web.UI.WebControls
Imports OpcLabs.EasyOpc.DataAccess.Extensions
Imports OpcLabs.EasyOpc.OperationModel
' ReSharper disable InconsistentNaming
' ReSharper once UnusedMember.Global
Partial Public Class _Default
Inherits UI.Page
Shared Sub New()
' Enable auto-subscribing optimization (not necessary), which can improve performance with repeated Read requests.
Client.TryEnableAutoSubscribingOptimization()
End Sub
' Use a shared client instance to allow for better optimization.
Shared ReadOnly Client As New EasyDAClient
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Read(TextBox1, "Simulation.Ramp (10 s)")
Read(TextBox2, "Simulation.Random")
Read(TextBox3, "Simulation.Incrementing (1 s)")
End Sub
Protected Sub Read(ByVal textBox As TextBox, ByVal itemId As String)
Try
textBox.Text = Client.ReadItemValue("", "OPCLabs.KitServer.2", itemId).ToString()
Catch e As OpcException
textBox.Text = "***" & e.GetBaseException().Message
End Try
End Sub
End Class
